10 REM  *************************
20 REM  * MIDI-BASIC  ANPASSUNG *
30 REM  * (C) 1991 BY R. BUCHTY *
40 REM  *************************
50 (null):(null):(null) 0
60 (null):(null) 0,0,12:PRINT"STARTPARAMETER-EDITOR FUER MIDIBASIC V5"
70 (null) 3,0:PRINT"I. BILDSCHIRMFARBEN"
80 PRINT"AENDERN (J/N)";A$:GOSUB 580:IF A$<>"J" THEN 150
90 INPUT"[145] HINTERGRUND";HF
100 INPUT" VORDERGRUND";VF
110 INPUT" ZEICHEN    ";ZF
120 (null) HF,VF,ZF:PRINT:PRINT"FARBEN OK (J/N)?":GOSUB 580
130 IF A$<>"J" THEN (null) 0,0,12:GOTO 70
140 POKE 35515,HF:POKE 35516,VF:POKE 35517,ZF
150 GOSUB 590
160 (null)3,0:PRINT"II. F-TASTEN-BELEGUNG"
170 PRINT"AENDERN (J/N)":GOSUB 580:IF A$<>"J" THEN 310
180 FOR A=1 TO 8:POKE 781,3+A:SYS 59903
190 (null) 3+A,1:PRINT" F"A" (MAX. 12 ZEICHEN)";:INPUT F$(A)
200 IF LEN(F$(A))>12 THEN 190
210 IF F$(A)="" THEN 190
220 PRINT"MIT RETURN ABSCHLIESSEN (J/N)":GOSUB 580
230 IF A$="J" THEN F$(A)=F$(A)+":"+CHR$(13)
240 NEXT A
250 FOR A=1 TO 4:C=2*A-1:FOR B=1 TO LEN(F$(C))
260 POKE 33344+(A-1)*15+B,ASC(MID$(F$(C),B,1)):NEXT B:FOR C=B TO 15
270 POKE 33344+(A-1)*15+C,0:NEXT C:FOR B=1 TO LEN(F$(2*A))
280 POKE 33404+(A-1)*15+B,ASC(MID$(F$(2*A),B,1)):NEXT B:FOR C=B TO 15
290 POKE 33404+(A-1)*15+C,0:NEXT C
300 NEXT A
310 GOSUB 590
320 (null)3,0:PRINT"III. TASTENWIEDERHOLUNG"
330 PRINT"AENDERN (J/N)":GOSUB 580:IF A$<>"J" THEN 360
340 PRINT"TASTENWIEDERHOLUNG (E)IN ODER (A)US?":GOSUB 580
350 POKE 32955,0:IF A$="E" THEN POKE 32955,128
360 GOSUB 590
370 (null) 3,0:PRINT"IV. F-TASTEN-INTERRUPT"
380 PRINT"AENDERN (J/N)?":GOSUB 580:IF A$<>"J" THEN 410
390 PRINT"F-TASTEN-BELEGUNG (E)IN / (A)US?":GOSUB 580
400 POKE 33239,49:POKE 33240,234:IF A$="E" THEN POKE 33239,217:POKE 33240,129
410 GOSUB 590:(null) 3,0:PRINT"V. DEVICE":PRINT"AENDERN (J/N)?":GOSUB 580
420 IF A$<>"J" THEN 470
430 (null) 4,0:PRINT"DEVICENUMMER (1:DATASETTE, 8-11:FLOPPY)"
440 INPUT A$:A=VAL(A$):IF A<8 THEN IF A<>1 THEN 430
450 IF A>11 THEN 430
460 A=VAL(A$):POKE 34076,A
470 GOSUB 590:(null) 3,0
480 PRINT"NAME, UNTER DEM DAS VERAENDERTE BASIC   ABGESPEICHERT WERDEN SOLL:"
490 (null) 5,0:INPUT N$:IF LEN(N$)>16 OR LEN(N$)=0 THEN 490
500 FOR A=1 TO LEN(N$):A$=MID$(N$,A,1)
510 IF A$="*" OR A$="?" OR A$=":" OR A$="@" THEN 490
520 IF ASC(A$)<32 OR (ASC(A$)>127 AND ASC(A$)<160) THEN 490
530 NEXT A
540 PRINT"SPEICHERN AUF (D)ISK ODER (T)APE?":GOSUB 580
550 X=8:IF A$="T" THEN X=1
560 SYS (57812)N$,X:POKE 193,0:POKE 194,128:POKE 174,191:POKE 175,138:SYS 62957
570 END
580 POKE 198,0:WAIT 198,1:GET A$:RETURN
590 Z=PEEK(214):FOR X=Z TO 2 STEP -1:POKE 781,X:SYS59903:NEXT X:RETURN